home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
G-Games
/
(c)g1.d64
/
cont.ldr.ml
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
1KB
|
41 lines
100 REM **************************
110 REM * *
120 REM * HIRES PICTURE LOADER *
130 REM * FOR COMMODORE 64 *
140 REM * *
150 REM * *
160 REM * DON WHITE *
170 REM * 47 ARIEL COURT *
180 REM * NEPEAN, ONTARIO *
190 REM * K2H 8J1 *
200 REM * *
210 REM * 613-829-2082 *
220 REM * *
230 REM **************************
240 REM
250 PRINT"[147]
260 [139]CT[177]0[167]340
270 [156]:[140]
280 CT[178]0:[143] INITIALIZE COUNTER
290 NN[178]20:[143] # PICTURES TO LOAD
300 V[178]53248:[151]V[170]17,59:[151]V[170]24,25:[143] HIGH RES SCREEN
310 :
320 [134]PI$(NN),CL(NN):[129]I[178]1[164]NN:[135] PI$(I),CL(I):[130]:[137]400
330 :
340 [153]"LOAD"
350 [161]ZZ$:[139]ZZ$[178]"S"[167][151]V[170]17,27:[151]V[170]24,21:[153]"LOAD":[128]
360 [151]53280,[181](16[172][187](1))
370 [151]828,CL(CT)
380 [158]3185:
390 [129]I[178]1[164]2000:[130]:[153]"LOAD"
400 [153]"LOAD":CT[178]CT[170]1:[139]CT[177]NN[167]270
410 [147] PI$(CT),8,1:[143] LOAD PICTURE ON HIRES SCREEN
420 :
430 [143] NAMES & COLOURS OF PICTURES
440 :
450 [131] SPIRAL.1,7,SUE,28,KAREN,28,SNOOPY,12,ALBERT,235
460 [131] DOLLAR,80,DIP,16,SNAIL,7,DES.1,5,7-3HILL,6
470 [131] MUSIC,2,MAP,16,DIANE,48,WILLY,112,RACCOON,144
480 [131] SINCOS1,3,WATCH,16,WINSTON,28,MICROMETER,139,NUDE,28
490 [128]